home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 2 / Tech Arsenal 2 (Arsenal Computer).iso / clipper / s93bsp.exe / NTX_CL5.PRG < prev    next >
Encoding:
Text File  |  1993-12-02  |  2.5 KB  |  105 lines
  1. ///////////////////////////////////////////////////////////////
  2. //
  3. //  Module : BODINDEX.PRG
  4. //
  5. //  Created by SUMMER'93 (c) on Fri Nov 26 14:49:39 1993
  6. //
  7. ///////////////////////////////////////////////////////////////
  8. #include "snj.ch"
  9. // This procedure named after its module
  10. static minvno
  11. procedure BODINDEX
  12. // Calls: QBINIT QBLAYOUT QBBOX QBMESS QBCLMESS QBYESNO QBPSETUP 
  13. // Called By: 
  14. //       B O D I N D E X
  15. //       Indexing etc for Bodywork
  16.  
  17. local GETLIST
  18. // These locals cover set/get variables where lvalues are needed
  19. local QBTITLE
  20. GETLIST := {}
  21. if !file( "QBINFO.NTX" )
  22.     use QBINFO 
  23.     index on upper( FIELD->QBINFKEY )to QBINFO 
  24. endif 
  25. set procedure to QBPROCS 
  26. set procedure to QBIPROC 
  27. do QBINIT
  28. set exact off 
  29. set deleted off 
  30.  
  31. do QBLAYOUT with "Initialisation" 
  32. do QBBOX with 40 
  33. QBMSGLIN( 22  )
  34.  
  35. do QBMESS with "Invoices", COLFLASH() , 0 
  36. use INVOICE 
  37. index on str( FIELD->INVNO , 5 )to INVNUM 
  38. index on dtos( FIELD->DATEOUT ) + FIELD->CUSTTYPE to INVDATE 
  39. index on FIELD->CUSTTYPE  + dtos( FIELD->DATEOUT )to INVCUST 
  40. index on upper( FIELD->OWNNAME )to INVNAME 
  41.  
  42. do QBMESS with "Customer Types", COLFLASH() , 0 
  43. use CUSTTYPE 
  44. index on FIELD->CUSTTYPE to CUSTTYPE 
  45.  
  46. do QBMESS with "Parts", COLFLASH() , 0 
  47. use PARTS 
  48. index on str( FIELD->INVNO , 5 ) + str( FIELD->PLINENO , 2 ) + ;
  49. FIELD->PARTSPEC to PARTINV 
  50. use PARTLINE 
  51. zap 
  52.  
  53. do QBMESS with "System Information", COLFLASH() , 0 
  54. use QBINFO 
  55. index on FIELD->QBINFKEY to QBINFO 
  56. use 
  57. use QBINFO index QBINFO 
  58. seek "LASTINV" 
  59. if eof( )
  60.     MINVNO := 1
  61.     append blank 
  62.     replace  FIELD->QBINFKEY with "LASTINV" 
  63. else 
  64.     MINVNO := val( FIELD->QBTEXT )
  65. endif 
  66. do QBCLMESS
  67. @ 22, 20  say "Input initial Invoice No:"  get MINVNO picture "99999"
  68. read 
  69. if updated( )
  70.     replace  FIELD->QBTEXT with str( MINVNO, 5 )
  71. endif 
  72.  
  73. do QBCLMESS
  74. seek "HEADING" 
  75. if eof( )
  76.     append blank 
  77.     QBTITLE( space( 30 ) )
  78. else 
  79.     QBTITLE( trim( FIELD->QBTEXT ) )
  80. endif 
  81. // GET command amended to ...
  82. QBTITLE := QBTITLE()
  83. @ 22, 10  say "Input System Title:"  get QBTITLE ;
  84.  WHEN { || QBTITLE := QBTITLE(), .t. }  valid { || ;
  85.  QBTITLE( QBTITLE ) != NIL }
  86. read 
  87. replace  FIELD->QBINFKEY with "HEADING1",  FIELD->QBTEXT with QBTITLE() 
  88. do QBCLMESS
  89.  
  90. if QBYESNO( "Is this a Colour monitor?" ) = "Y" 
  91.     QBRESP( "C"  )
  92. else 
  93.     QBRESP( "M"  )
  94. endif 
  95. seek "COLOUR" 
  96. replace  FIELD->QBTEXT with QBRESP() 
  97. use 
  98. if QBYESNO( "Do you want to enter printer setup codes? (Y/N)" ) = "Y" 
  99.     do QBPSETUP
  100. endif 
  101. clear screen
  102. clear all 
  103.  
  104. // End of file
  105.